%% FIGURE A-20
clear all
clc
% Add path 
% Determine where your m-file's folder is.
folder = fileparts(which("Figure_A_20.m")); 
% Add that folder plus all subfolders to the path.
addpath(genpath(folder)); 

% Saving path
file_dir = what('Figures'); 
spath=file_dir.path;

% Setting
hor=20;
jhor=0:hor;
Run_color_settings
% LOAD DATA
ResultsIP02=load("Results/DFMDGP_IPIVLag2.mat");
ResultsIP04=load("Results/DFMDGP_IPIVLag4.mat");
ResultsUnem02=load("Results/DFMDGP_UnemIVLag2.mat");
ResultsUnem04=load("Results/DFMDGP_UnemIVLag4.mat");


% Plot
clf
N_plot=2;
pln=1;
plotColumns=2;
figure(1)
for j=1:N_plot
            grid on
            pl=subplot(ceil(N_plot/plotColumns),plotColumns,pln);
            hold on
            
           if j==1
           % Bias IP
            p0=plot(jhor,ResultsIP02.Results.BIAS_result(:,1), '--','LineWidth',4,'Color', line_colors(1,:)); 
            p1=plot(jhor,ResultsIP02.Results.BIAS_result(:,2), '-.','LineWidth',4,'Color', line_colors(2,:)); 
            p2=plot(jhor,ResultsIP02.Results.BIAS_result(:,3), '-','LineWidth',4,'Color', line_colors(3,:));
            p3=plot(jhor,ResultsIP02.Results.BIAS_result(:,4), '-o','LineWidth',2,'Color', line_colors(5,:)); 
            p4=plot(jhor,ResultsIP02.Results.BIAS_result(:,5), '-*','LineWidth',3,'Color', line_colors(6,:)); 
            hold off; axis tight
            xlim([0 hor]);
            set(gca,'XTick',0:4:hor,'XTickLabel',cellstr(num2str((0:4:hor)')),'Layer','top','FontSize',14)
            xlabel('Horizon')
            lh=legend([p0 p1 p2 p3 p4],{'VAR';'LP';'Pool EW';'Pool FC'; 'BLP'},'FontSize',16,'Location','northeast','Box','off');
            ylim([0 0.5])
            yticks(0:0.1:0.5)
            title('p=2','FontSize',16,'FontWeight','normal')
         
            elseif j==2
            % Bias IP
            p0=plot(jhor,ResultsIP04.Results.BIAS_result(:,1), '--','LineWidth',4,'Color', line_colors(1,:)); 
            p1=plot(jhor,ResultsIP04.Results.BIAS_result(:,2), '-.','LineWidth',4,'Color', line_colors(2,:)); 
            p2=plot(jhor,ResultsIP04.Results.BIAS_result(:,3), '-','LineWidth',4,'Color', line_colors(3,:));
            p3=plot(jhor,ResultsIP04.Results.BIAS_result(:,4), '-o','LineWidth',2,'Color', line_colors(5,:)); 
            p4=plot(jhor,ResultsIP04.Results.BIAS_result(:,5), '-*','LineWidth',3,'Color', line_colors(6,:)); 
            hold off; axis tight
            xlim([0 hor]);
            set(gca,'XTick',0:4:hor,'XTickLabel',cellstr(num2str((0:4:hor)')),'Layer','top','FontSize',14)
            xlabel('Horizon')
           % lh=legend([p0 p1 p2 p3 p4],{'VAR';'LP';'Pool EW';'Pool FC'; 'BLP'},'FontSize',16,'Location','northeast','Box','off');
            ylim([0 0.25])
            yticks(0:0.05:0.25)
            title('p=4','FontSize',16,'FontWeight','normal')
     
           end

            grid on
            ax = gca;             % Get current axes
            ax.GridLineStyle = ':';    % (Optional) Set grid line style
            ax.LineWidth = 2;         % This affects grid line thickness and axes box
            ax.GridColor = [0 0 0];
            x0=10;
            y0=10;
            width=900;
            height=400;      
            pln=pln+1;          
            set(gcf,'position',[x0,y0,width,height])
            hold off
end
saveas(figure(1),fullfile(spath,['DFM_IVLagIPBIAS.eps']),'epsc');

% Plot
clf
N_plot=2;
pln=1;
plotColumns=2;
figure(2)
for j=1:N_plot
            grid on
            pl=subplot(ceil(N_plot/plotColumns),plotColumns,pln);
            hold on
            
           if j==1
           % Bias Unem
            p0=plot(jhor,ResultsUnem02.Results.BIAS_result(:,1), '--','LineWidth',4,'Color', line_colors(1,:)); 
            p1=plot(jhor,ResultsUnem02.Results.BIAS_result(:,2), '-.','LineWidth',4,'Color', line_colors(2,:)); 
            p2=plot(jhor,ResultsUnem02.Results.BIAS_result(:,3), '-','LineWidth',4,'Color', line_colors(3,:));
            p3=plot(jhor,ResultsUnem02.Results.BIAS_result(:,4), '-o','LineWidth',2,'Color', line_colors(5,:)); 
            p4=plot(jhor,ResultsUnem02.Results.BIAS_result(:,5), '-*','LineWidth',3,'Color', line_colors(6,:)); 
            hold off; axis tight
            xlim([0 hor]);
            set(gca,'XTick',0:4:hor,'XTickLabel',cellstr(num2str((0:4:hor)')),'Layer','top','FontSize',14)
            xlabel('Horizon')
            lh=legend([p0 p1 p2 p3 p4],{'VAR';'LP';'Pool EW';'Pool FC'; 'BLP'},'FontSize',16,'Location','northeast','Box','off');
            ylim([0 0.8])
            yticks(0:0.2:0.8)
            title('p=2','FontSize',16,'FontWeight','normal')
         
           elseif j==2
            % Bias Unem
            p0=plot(jhor,ResultsUnem04.Results.BIAS_result(:,1), '--','LineWidth',4,'Color', line_colors(1,:)); 
            p1=plot(jhor,ResultsUnem04.Results.BIAS_result(:,2), '-.','LineWidth',4,'Color', line_colors(2,:)); 
            p2=plot(jhor,ResultsUnem04.Results.BIAS_result(:,3), '-','LineWidth',4,'Color', line_colors(3,:));
            p3=plot(jhor,ResultsUnem04.Results.BIAS_result(:,4), '-o','LineWidth',2,'Color', line_colors(5,:)); 
            p4=plot(jhor,ResultsUnem04.Results.BIAS_result(:,5), '-*','LineWidth',3,'Color', line_colors(6,:)); 
            hold off; axis tight
            xlim([0 hor]);
            set(gca,'XTick',0:4:hor,'XTickLabel',cellstr(num2str((0:4:hor)')),'Layer','top','FontSize',14)
            xlabel('Horizon')
           % lh=legend([p0 p1 p2 p3 p4],{'VAR';'LP';'Pool EW';'Pool FC'; 'BLP'},'FontSize',16,'Location','northeast','Box','off');
            ylim([0 0.36])
            yticks(0:0.06:0.36)
            title('p=4','FontSize',16,'FontWeight','normal')
     
           end

            grid on
            ax = gca;             % Get current axes
            ax.GridLineStyle = ':';    % (Optional) Set grid line style
            ax.LineWidth = 2;         % This affects grid line thickness and axes box
            ax.GridColor = [0 0 0];
            x0=10;
            y0=10;
            width=900;
            height=400;      
            pln=pln+1;          
            set(gcf,'position',[x0,y0,width,height])
            hold off
end
saveas(figure(2),fullfile(spath,['DFM_IVLagUnemBIAS.eps']),'epsc');
